home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / ttt / ttt.bas next >
BASIC Source File  |  1993-07-08  |  4KB  |  155 lines
  1. 1000 'Tiny Translator Towns
  2. 1010 'Vulture Software vol.3
  3. 1020 'Ver1.0 L02 93/02/23
  4. 1030 '
  5. 1040   CLEAR ,,512,76800*2+1024,0,300*1024
  6. 1050   DIM G%(76800)
  7. 1060   SCREEN@ 1
  8. 1070   SCREEN 1,1,3,0
  9. 1080   CLS 0
  10. 1090   SCREEN 1,0
  11. 1100   ON ERROR GOTO *ER_RES
  12. 1110 '
  13. 1120   LOOP=1
  14. 1130   WHILE LOOP
  15. 1140     COLOR 1
  16. 1150     SCREEN 1,1,3,1
  17. 1160     SCREEN 0
  18. 1170     LINE (20,20)-STEP(16*10,16*7),PSET,1,BF
  19. 1180     LINE (16,16)-STEP(16*10,16*7),PSET,7,BF
  20. 1190     LOCATE 5, 2 : PRINT "1.LOAD TIFF,JPG"
  21. 1200     LOCATE 5, 3 : PRINT "2.SAVE TIFF[非圧縮]"
  22. 1210     LOCATE 5, 4 : PRINT "3.SAVE TIFF[圧縮]"
  23. 1220     LOCATE 5, 5 : PRINT "4.SAVE JPG"
  24. 1230     LOCATE 5,12 : PRINT "file:";LF$
  25. 1240     LOCATE 5, 6 : INPUT "0-4=",JOB$
  26. 1250     JOB=VAL(JOB$)
  27. 1260     IF JOB=0 AND JOB$<>"0" THEN 1160
  28. 1270     IF JOB>1 AND LOOP=1 THEN 1290
  29. 1280     ON JOB+1 GOSUB *Q,*GL,*GSTN,*GSTL,*GSJ
  30. 1290   WEND
  31. 1300   END
  32. 1310 '
  33. 1320 *Q
  34. 1330   END
  35. 1340 '
  36. 1350 *GL
  37. 1360   LOCATE 5,7 : LINE INPUT "file_name=",LF$
  38. 1370   IF LF$<>"" THEN
  39. 1380     SCREEN 1,0,1,0
  40. 1390     LOAD@ LF$
  41. 1400     GET@A (0,0)-(319,239),G%
  42. 1410     LOOP=2
  43. 1420   ENDIF
  44. 1430   RETURN
  45. 1440 '
  46. 1450 *GSTN
  47. 1460   LOCATE 5,7 : LINE INPUT "file_name=",SF$
  48. 1470   IF SF$<>"" THEN
  49. 1480     IF INSTR(SF$,".")>0 THEN ERROR 200
  50. 1490     SCREEN 1,0,1,0
  51. 1500     PUT@A (0,0)-(319,239),G%
  52. 1510     SF$=SF$+".TIF"
  53. 1520     SAVE@ SF$,(0,0)-(319,239),,0
  54. 1530   ENDIF
  55. 1540   RETURN
  56. 1550 '
  57. 1560 *GSTL
  58. 1570   LOCATE 5,7 : LINE INPUT "file_name=",SF$
  59. 1580   IF SF$<>"" THEN
  60. 1590     IF INSTR(SF$,".")>0 THEN ERROR 200
  61. 1600     SCREEN 1,0,1,0
  62. 1610     PUT@A (0,0)-(319,239),G%
  63. 1620     SF$=SF$+".TIF"
  64. 1630     SAVE@ SF$,(0,0)-(319,239),,1
  65. 1640   ENDIF
  66. 1650   RETURN
  67. 1660 '
  68. 1670 *GSJ
  69. 1680   LOCATE 5, 7 : LINE INPUT "file_name=",SF$
  70. 1690   IF SF$<>"" THEN
  71. 1700     IF INSTR(SF$,".")>0 THEN ERROR 200
  72. 1710     LOCATE 5, 8 : INPUT "成分比YCbCr (1/2/4)   =",YCC$
  73. 1720     IF YCC$<>"1" AND YCC$<>"2" AND YCC$<>"4" THEN 1870
  74. 1730     YCC=VAL(YCC$)
  75. 1740     LOCATE 5, 9 : INPUT "輝度圧縮率Y (0-[25]-100)=",Y$
  76. 1750     IF Y$="" THEN Y$="25"
  77. 1760     Y=VAL(Y$)
  78. 1770     IF Y$<>MID$(STR$(Y),2) THEN 1870
  79. 1780     LOCATE 5,10 : INPUT "彩度圧縮率C (0-[25]-100)=",C$
  80. 1790     IF C$="" THEN C$="25"
  81. 1800     C=VAL(C$)
  82. 1810     IF C$<>MID$(STR$(C),2) THEN 1870
  83. 1820     SCREEN 1,0,1,0
  84. 1830     PUT@A (0,0)-(319,239),G%
  85. 1840     SF$=SF$+".JPG"
  86. 1850     SAVE@ SF$,(0,0)-(319,239),,2,YCC,Y,C
  87. 1860   ENDIF
  88. 1870   RETURN
  89. 1880 '
  90. 1890 'エラー処理
  91. 1900 *ER_RES
  92. 1910   SCREEN 0
  93. 1920   CLS 1
  94. 1930   LINE (20,20)-STEP(16*10,16*7),PSET,1,BF
  95. 1940   LINE (16,16)-STEP(16*10,16*7),PSET,7,BF
  96. 1950   COLOR 2
  97. 1960   IF ERR=  2 THEN *ER_2
  98. 1970   IF ERR= 63 THEN *ER_63
  99. 1980   IF ERR= 64 THEN *ER_64
  100. 1990   IF ERR= 65 THEN *ER_65
  101. 2000   IF ERR= 67 THEN *ER_67
  102. 2010   IF ERR=200 THEN *ER_200
  103. 2020   GOTO *ER_EXT
  104. 2030 '文法(LOAD時)エラー
  105. 2040 *ER_2
  106. 2050   LOCATE 5,2 : PRINT "拡張子[.TIF/.JPG]をつけて､"
  107. 2060   LOCATE 5,3 : PRINT "  正確に指定してください｡"
  108. 2070   I$=INPUT$(1)
  109. 2080   GOTO *ER_RECV
  110. 2090 '指定ファイル無し
  111. 2100 *ER_63
  112. 2110   LOCATE 5,2 : PRINT "[";LF$;"]が見つかりません｡"
  113. 2120   I$=INPUT$(1)
  114. 2130   GOTO *ER_RECV
  115. 2140 '既存ファイルあり
  116. 2150 *ER_64
  117. 2160   LOCATE 5,2 : PRINT "[";SF$;"]"
  118. 2170   LOCATE 5,3 : PRINT "上書きはできません｡"
  119. 2180   I$=INPUT$(1)
  120. 2190   GOTO *ER_RECV
  121. 2200 'ディレクトリ領域に空きが無い
  122. 2210 *ER_65
  123. 2220   LOCATE 5,2 : PRINT "ﾃﾞｨﾚｸﾄﾘ領域がいっぱいです｡"
  124. 2230   I$=INPUT$(1)
  125. 2240   GOTO *ER_RECV
  126. 2250 'ディスクに空き領域が足りない
  127. 2260 *ER_67
  128. 2270   LOCATE 5,2 : PRINT "ﾃﾞｨｽｸ容量が足りません｡"
  129. 2280   I$=INPUT$(1)
  130. 2290   GOTO *ER_RECV
  131. 2300 'FAT破壊?
  132. 2310 *ER_71
  133. 2320   LOCATE 5,2 : PRINT "FATが破壊されています｡"
  134. 2330   I$=INPUT$(1)
  135. 2340 'ファイル操作時に拡張子を指定した
  136. 2350 *ER_200
  137. 2360   LOCATE 5,2 : PRINT "拡張子[.TIF/.JPG]は､"
  138. 2370   LOCATE 5,3 : PRINT "  指定しないで下さい｡"
  139. 2380   I$=INPUT$(1)
  140. 2390   GOTO *ER_RECV
  141. 2400 '
  142. 2410 'エラー復帰
  143. 2420 *ER_RECV
  144. 2430   IF ERL=1390 THEN RESUME 1430
  145. 2440   IF ERL=1480 THEN RESUME 1540
  146. 2450   IF ERL=1520 THEN RESUME 1540
  147. 2460   IF ERL=1590 THEN RESUME 1650
  148. 2470   IF ERL=1630 THEN RESUME 1650
  149. 2480   IF ERL=1700 THEN RESUME 1870
  150. 2490   IF ERL=1850 THEN RESUME 1870
  151. 2500 'その他のエラー
  152. 2510 *ER_EXT
  153. 2520   PRINT "DANGER!! ERR:";ERR;"  ERL:";ERL
  154. 2530   END
  155.